www.gusucode.com > 智睿学校网站管理系统 V2.20 > 智睿学校网站管理系统 V2.20\code\UserInfo.asp
<!--#include file="Include/conn.asp"--> <!--#include file="Include/Fun_SqlIn.Asp"--> <html xmlns="http://www.w3.org/1999/xhtml" > <head> <meta http-equiv="Content-Type" content="text/html; charset=GB2312" /> <meta http-equiv="Content-Language" content="zh-CN" /> <title>会员中心 - <%=SiteTitle%></title> <meta name="keywords" content="<%=Sitekeywords%>" /> <meta name="description" content="<%=Sitedescription%>" /> <link href="images/style.css" rel="stylesheet" type="text/css" /> </head> <body> <%head()%> <% if not (session("zhi_rui_s_MemName")<>"" ) then response.redirect "UserReg.asp" response.end end if dim MemID,mMemName,mGroupIdName,mRealName,mSex,mQusetion,mAddTime,mUmail,Addess,Umail,Pricect,act dim mAddess,mZip,mTelephone,mMobilemAddTime,mLoginTimes,mLastLoginTime,mLastLoginIP,UserMoney dim action act=trim(Request.QueryString("act")) call MemInfo() %> <table width="950" border="0" align="center" cellpadding="0" cellspacing="0" class="main_class"> <tr> <td width="240" valign="top" class="leftCenter" > <!--#include file="Include/login.asp"--> <table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td class="Ma_left">关于我们</td> </tr> <tr> <td align="left"><div style="margin-left:10px;"><% =WebMenu()%></div></td> </tr> </table> </td> <td width="5"></td> <td valign="top"class="viewright"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="30" height="30" align="center" > </td> <td class="Location"><a href="../index.asp">首页</a><img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle">会员中心<img src="../Images/Arrow_02.gif" width="13" height="12" align="absmiddle">注册</td> </tr> <tr> <td height="1" colspan="2" background="../Images/TitBG.gif"></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="30"> </td> <td> <%if act="tail" then%> <table width="604" border="0" cellspacing="0" cellpadding="1"> <tr> <td width="100" align="right">总消费:</td> <td><font color=red><%=Pricect%></font> 元</td> </tr> <tr> <td align="right">目前积分:</td> <td><font color=red><%=session("UserMoney")%></font> 分</td> </tr> </table> <%else%> <table width="604" border="0" cellspacing="0" cellpadding="1"> <form name="formReg" method="post" action="UserInfoSave.asp"> <tr> <td width="100" align="right">帐号:</td> <td><%=mMemName%> <font color="#CC0000">*</font> 不可更改 登录:[<font color="red"> <% =mLoginTimes %></font>]次</td> </tr> <tr> <td align="right">姓名:</td> <td><input name="RealName" type="text" class="input1" id="RealName" size="20" maxlength="50" value="<%=mRealName%>"></td> </tr> <tr> <td align="right">性别:</td> <td><input name="Sex" type="radio" value="先生" <%if mSex="先生" then response.write ("checked")%>>先生 <input type="radio" name="Sex" value="女士" <%if mSex="女士" then response.write ("checked")%>>女士</td> </tr> <tr> <td align="right">设置密码:</td> <td><input name="Password" type="password" class="input1" id="Password" size="20" maxlength="16"> 空表示不修改</td> </tr> <tr> <td align="right">确定密码:</td> <td><input name="vPassword" type="password" class="input1" id="vPassword" size="20" maxlength="16"> </td> </tr> <tr> <td align="right">密码提示问题:</td> <td><% =mQusetion %></td> </tr> <tr> <td align="right">密码提示答案:</td> <td>********</td> </tr> <tr> <td align="right">地址:</td> <td><input name="Addess" type="text" class="input1" id="Addess" value="<% =mAddess %>" size="40" maxlength="100"></td> </tr> <tr> <td align="right">QQ/MSN:</td> <td><input name="Zip" type="text" class="input1" id="Zip" size="20" maxlength="20" value="<% =mZip%>"></td> </tr> <tr> <td align="right">电话:</td> <td><input name="Telephone" type="text" class="input1" id="Telephone" size="20" maxlength="50" value="<% =mTelephone %>"></td> </tr> <tr> <td align="right">电子邮箱:</td> <td><input name="Umail" type="text" class="input1" id="Umail" size="30" maxlength="50" value="<% =mUmail %>"> <font color="#CC0000">*</font></td> </tr> <input name="UserID" type="Hidden" value="<% =MemID %>"> <tr> <td align="right">验证码:</td> <td><input name="code" type="text" id="code" size="8" maxlength="5" class="input1"/> <img src="Include/code.asp" border="0" alt="看不清楚请点击刷新验证码" style="cursor : pointer;" onClick="this.src='Include/code.asp'"/></td> </tr> <tr> <td align="right">注册时间:</td> <td ><% =mAddTime %> 最后登录IP:<% =mLastLoginIP %></td> </tr> <tr> <td height="30" align="right"> </td> <td valign="bottom"> <input name="Submit" type="submit" class="but1" value=" 保存 "> <input name="Reset" type="reset" class="but1" value=" 重置 "> </td> </tr> </form> </table> <%end if%> </td> <td width="30"> </td> </tr> <tr> <td height="30"></td> <td></td> <td></td> </tr> </table></td> </tr> </table> <%Bottom()%> </body> </html> <% sub MemInfo() dim rs,sql set rs = server.createobject("adodb.recordset") sql="select * from zhi_rui_s_Users where MemName='"&session("zhi_rui_s_MemName")&"'" rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "暂无相关信息" else MemID=rs("ID") mMemName=rs("MemName") mRealName=rs("RealName") mSex=rs("Sex") mQusetion=rs("Question") mAddess=rs("Addess") mZip=rs("Zip") mTelephone=rs("Telephone") mUmail=rs("Umail") UserMoney=rs("UserMoney") Pricect=rs("Pricect") mAddTime=rs("AddTime") mLoginTimes=rs("LoginTimes") mLastLoginIP=rs("LastLoginIP") end if rs.close set rs=nothing end sub %>